home *** CD-ROM | disk | FTP | other *** search
/ Learning Games / Learning Games (1995)(Maple Media).iso / kslogo13 / kids.log < prev    next >
Text File  |  1994-04-27  |  3KB  |  65 lines
  1. Circle :radius :amount
  2. :radius=:radius*6.283185 :radius=:radius/18 repeat:amount [ fd:radius rt20 ]
  3. BOX
  4. repeat4 [ rt90 fd100 ]
  5. F
  6. fd100 rt90 fd50 bd50 lt90 bd50 rt90 fd25 bd25 lt90 bd50 rt90 pu fd75 pd lt90
  7. T
  8. pu rt90 fd25 lt90 pd fd100 rt90 fd25 bd50 fd25 lt90 bd100 rt90 pu fd50 lt90 pd
  9. I
  10. rt90 fd50 bd25 lt90 fd100 rt90 fd25 bd50 fd25 lt90 bd100 rt90 fd25 pu fd25 pd lt90
  11. L
  12. fd100 bd100 rt90 fd50 pu fd25 lt90 pd
  13. E
  14. fd100 rt90 fd50 bd50 lt90 bd50 rt90 fd25 bd25 lt90 bd50 rt90 fd50 pu fd25 pd lt90
  15. A
  16. fd75 circle25,10 lt20 fd25 rt90 fd50 bd50 lt90 fd50 lt90 pu fd25 lt90 pd
  17. Poly :sides :size
  18. repeat:sides [ rt360/:sides fd:size ]
  19. h
  20. fd100 bd50 rt90 fd50 rt90 bd50 fd100 lt90 pu fd25 pd lt90
  21. =
  22. pu fd40 rt90 pd fd70 pu lt90 fd20 lt90 pd fd70 lt90 pu fd60 lt90 fd95 lt90 pd
  23. n
  24. fd100 bd25 circle25,10 lt20 fd75 lt90 pu fd25 lt90 pd
  25. m
  26. fd100 bd12.5 circle12.5,10 lt20 fd25 lt180 fd25 circle12.5,10 lt20 fd87.5 pu lt90 fd25 lt90 pd
  27. b
  28. fd100 rt90 fd25 circle25,10 lt20 fd25 bd25 lt180 circle25,10 lt20 fd25 lt180 pu fd75 lt90 pd
  29. r
  30. fd100 rt90 fd25 circle25,10 lt20 fd25 rt180 fd25 move25,-50 pu fd25 lt90 pd
  31. c
  32. pu rt90 fd50 pd rt180 circle50,10 rt70 pu fd100 lt90 fd25 lt90 pd
  33. d
  34. fd100 rt90 circle50,10 lt200 pu fd75 lt90 pd
  35. demo
  36. repeat18 [ pu sp 0,0 fd50 rt20 pd :c=10 repeat20 [ fd:c :c=:c+5 rt90 ] ]
  37. g
  38. pu rt90 fd50 lt90 fd50 pd lt90 fd25 bd25 lt90 fd25 circle25,10 lt20 fd50 circle25,10 lt20 pu fd75 lt90 fd25 lt90 pd
  39. j
  40. rt90 pu fd50 lt90 fd25 pd fd75 rt180 fd75 circle25,10 rt160 pu fd25 lt90 fd75 lt90 pd
  41. p
  42. fd100 rt90 fd25 circle25,10 lt20 fd25 lt90 fd50 lt90 pu fd75 lt90 pd
  43. o
  44. pu fd25 pd fd50 circle25,10 lt20 fd50 circle25,10 rt160 pu fd25 lt90 fd75 lt90 pd
  45. _
  46. pu move50,0 pd
  47. k
  48. fd100 bd50  rt90 move50,50 move-50,-50 move50,-50 pu fd25 lt90 pd 
  49. colorwheel
  50. width10 repeat120 [ color:c :c=:c+.1 if:c>14 [ :c=0 ] sp0,0 fd100 rt3 ] 
  51. turn
  52. colorwheel repeat360 [ width5 color:c :c=:c+.1 if:c>14 [ :c=0 ] sp0,0 fd100  width8 color15 bd100 rt8 ] 
  53. newdemo
  54. scale15 sp-100,0 clr repeat9 [ repeat200 [ fd100 rt120 fd20 rt146 fd20 ] rt120 ]
  55. clock
  56. aspect.5 repeat180 [ sp0,0 sh:m clr fd200 sp0,0 sh:h fd150 :m=:m+24 :h=:h+2 ] aspect1
  57. spin
  58. scale15  rt90 repeat10 [ pu sp50,50 rt180 pd :c=0 repeat45 [ clr fd100 rt:c fd100 rt180-:c :c=:c+4 ] ]
  59. logologo
  60. lt90 aspect.6 width2 repeat8 [ pu sp0,0 fd140 rt360/14 lt90 color:c pd l o g o rt90 :c=:c+1.7 ] aspect1
  61. bush
  62.  :col=8 repeat5 [ :c=-600 repeat7 [ color:col sh270 repeat19 [ pu sp:c,0 pd fd200 rt10 ] :c=:c+200 ] :col=:col+1 ]  
  63. logotwo
  64. scale2 logologo :c=1 scale7 logologo
  65.